home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / qtool4.arc / CUR.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-05-22  |  2.6 KB  |  111 lines
  1. rem $linesize:132
  2. rem $title:'CUR - edit current program compile options'
  3. rem $subtitle:'Development tool for Application Engineer'
  4. '                Include the COMMON values
  5. rem $include:'AESHARED.BAS'            
  6.  
  7.     aa$=command$
  8.     call ctrl.trim(aa$)
  9.     call color.init("appcolor.ctl")
  10.  
  11.     open "r",1,"CUR.OPT",8
  12.     field #1,8 as fl$
  13.     get #1,1
  14.  
  15.     if aa$="" then
  16.  
  17.  
  18.         fr$=fl$
  19.  
  20.         cls
  21.         call centre.text("CUR - current program compilation options.",1%)
  22.         call centre.text("(C)opyright R.Barrow 1986,1987",2%)
  23.         call qprint(string$(70%,45%),4%,4%)
  24.         call qprint("cu.bat  -  compile & link to APENGINE",5%,4%)
  25.         call qprint("cn.bat  -  compile & link stand alone",6%,4%)
  26.         call qprint("cnx.bat -  compile & line to APENGINE with /x",7%,4%)
  27.         call qprint("e.bat   -  edit program under QuickBasic",8%,4%)
  28.         call qprint("ew.bat  -  edit program under WordStar",9%,4%)
  29.         call qprint("cs.bat  -  compile as a sub-routine (to add to APENGINE)",10%,4%)
  30.         call qprint("pr.bat  -  pretty print the file",11%,4%)
  31.         call qprint("rr.bat  -  replace the subroutine in APENGINE",12%,4%)
  32.         call qprint("ec.bat  -  compile on e:",13%,4%)
  33.         call qprint(string$(70%,45%),15%,4%)
  34.  
  35.  
  36.         dialog$(1)="Modify the current program name"
  37.         dialog$(2)="The above .bat files will be created"
  38.         dialog$(3)="Use only legal file names."
  39.         dialog$(4)="Press ENTER when complete"
  40.  
  41.         call Dialog.Two(fr$,8%,dummy$,0%)
  42.  
  43.         locate 23,1,0
  44.     else
  45.         fr$=aa$
  46.     end if
  47.  
  48.  
  49.     call ctrl.trim(fr$)
  50.     lset fl$=fr$
  51.     put #1,1
  52.     close 1
  53.  
  54.  
  55.     open "o",1,"cu.bat"
  56.     print #1,"qb "+fr$+" /o /g /e /q ;"
  57.     print #1,"link "+fr$+","+fr$+","+fr$+".map,e:advbas+e:apengine /SEGMENTS:256 ;"
  58.     close 1
  59.  
  60.     open "o",1,"eee.bat"
  61.     print #1,"qb "+fr$+" /l advbas.exe"
  62.     close 1
  63.  
  64.     open "o",1,"ec.bat"
  65.     print #1,"copy "+fr$+".bas e:"
  66.     print #1,"e:"
  67.     print #1,"qb "+fr$+" /o /g /e /q;"
  68.     print #1,"link "+fr$+","+fr$+","+fr$+".map,e:advbas+e:apengine /SEGMENTS:256 ;"
  69.     print #1,"copy "+fr$+".exe c:"
  70.     print #1,"c:"
  71.     close 1
  72.  
  73.     open "o",1,"cn.bat"
  74.     print #1,"qb "+fr$+" /o /g /e /q;"
  75.     print #1,"link "+fr$+";"
  76.     close 1
  77.  
  78.     open "o",1,"cnx.bat"
  79.     print #1,"qb "+fr$+" /o /g /e /x /q;"
  80.     print #1,"link "+fr$+" ,"+fr$+","+fr$+".map,advbas+e:apengine /SEGMENTS:256 ;"
  81.     close 1
  82.  
  83.     open "o",1,"e.bat"
  84.     print #1,"q "+fr$
  85.     close 1
  86.  
  87.     open "o",1,"ew.bat"
  88.     print #1,"edt "+fr$+".bas"
  89.     close 1
  90.  
  91.     open "o",1,"cs.bat"
  92.     print #1,"qb "+fr$+" /o /g /e /q;"
  93.     close 1
  94.  
  95.     open "o",1,"pr.bat"
  96.     print #1,"aeprint "+fr$+" pretty"
  97.     close 1
  98.  
  99.     open "o",1,"cs2.bat"
  100.     print #1,"qb "+fr$+" /o /g /e /q;"
  101.     print #1,"rep "+fr$
  102.     close 1
  103.  
  104.  
  105.     open "o",1,"rr.bat"
  106.     print #1,"rep "+fr$
  107.     close 1
  108.  
  109.     end
  110.  
  111.